home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SWAG / SWAGA_C / CURSOR.SWG / 0006_Cursor Show-Hide #2.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  432b  |  17 lines
  1.   Procedure HideCursor;  assembler;
  2.   asm
  3.     mov      ah,$01  { Function number }
  4.     mov      ch,$20
  5.     mov      cl,$00
  6.     Int      $10     { Call BIOS }
  7.   end;  { HideCursor }
  8.  
  9.  
  10.   Procedure RestoreCursor;  assembler;
  11.   asm
  12.     mov      ah,$01  { Function number }
  13.     mov      ch,$06  { Starting scan line }
  14.     mov      cl,$07  { Ending scan line }
  15.     int      $10     { Call BIOS }
  16.   end; { RestoreCursor }
  17.